home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 021-030 / amok26 / convtabs / convtabs.mod < prev    next >
Text File  |  1993-11-04  |  2KB  |  49 lines
  1. (*---------------------------------------------------------------------------
  2.     :Program.    ConvTabs.mod
  3.     :Author.     Bernd Preusing
  4.     :Address.    Gerhardstr. 16  D-2200 Elmshorn
  5.     :Phone.      04121/22486
  6.     :Shortcut.   [bep]
  7.     :Version.     2.0 (update zu StripText 1.0)
  8.     :Date.       Aug-89
  9.     :Copyright.  PD
  10.     :Language.   Modula-II
  11.     :Translator. M2Amiga
  12.     :Imports.    TabConversions, FileIO (Bernd Preusing)
  13.     :UpDate.     2.0 speed up, korrekte Behandlung von Strings in '' und ""
  14.     :Contents.   convert text to tabs, kill trailing spaces
  15. ---------------------------------------------------------------------------*)
  16. MODULE ConvTabs;
  17.  
  18. FROM SYSTEM    IMPORT ADDRESS;
  19. FROM Terminal    IMPORT WriteString, WriteLn;
  20. FROM Arguments    IMPORT GetArg, NumArgs;
  21. FROM TabConversions IMPORT SpacesToTabs;
  22. FROM FileIO    IMPORT GetFile, PutFile, FileIOResult;
  23.  
  24. VAR
  25.  Buff:ADDRESS;
  26.  Len:LONGINT; NameLen:INTEGER;
  27.  InName, OutName: ARRAY[0..127] OF CHAR;
  28.  
  29. BEGIN
  30.  WriteString('ConvTabs 2.0  © 1989 Bernd Preusing'); WriteLn;
  31.  IF NumArgs()=2 THEN
  32.    GetArg(1,InName,NameLen);
  33.    GetArg(2,OutName,NameLen);
  34.    IF GetFile(InName,Buff,Len,0)=noError THEN
  35.      Len:=SpacesToTabs(Buff,Buff);
  36.      IF PutFile(OutName,Buff,Len,FALSE,TRUE)=noError THEN
  37.        WriteString('--- fertig ---');
  38.      ELSE
  39.        WriteString('--- write error ---');
  40.      END;
  41.    ELSE
  42.      WriteString('--- read error ---');
  43.    END;
  44.  ELSE
  45.    WriteString('--- usage: ConvTabs InFile OutFile ---');
  46.  END;
  47.  WriteLn;
  48. END ConvTabs.
  49.